library(tidyverse)
library(ggthemes)
setwd( "/Users/clarkeaj/Desktop/Replication/")
getwd()
lsofunds<-read_csv('lso.funds.csv', col_names = TRUE)
p2 <- ggplot(lsofunds, aes(x = reorder(lso, funds2), y = funds2)) +
  geom_bar(stat = "identity", 
           width = 0.7, 
           position = position_dodge(width = 0.9),
           color="dodgerblue4",
           fill="dodgerblue4") +
  coord_flip() + 
  scale_y_continuous(breaks=seq(0,800,100)) + 
  xlab("LSO")+
  ylab("Contributions to LSO (in 1,000s of 1987 Dollars)")+
  scale_x_discrete(expand = c(0,0.9))+
  theme_tufte(base_size = 16)+
  theme(legend.position="none", axis.ticks = element_blank(), axis.title.x = element_text(colour = "black"),
        axis.title.y = element_text(colour = "black"))
p2
